﻿Imports System.Reflection

Module Hauptmodul

    Sub Main()

        'Das ist die Liste mit den Kontakten
        Dim meineKontakte As List(Of Kontakt)

        'Die werden hier 'besorgt'
        meineKontakte = Kontakt.Zufallskontakte(100)

        Dim sortierteListe = From einKontakt In meineKontakte _
                            Order By einKontakt.Nachname _
                            Where einKontakt.Ort = "Lippstadt"

        'Wir iterieren durch die Kontakte
        For Each einKontakt In sortierteListe
            'Geben Nachname, Vorname aus
            Console.WriteLine(einKontakt.Nachname & ", " & einKontakt.Vorname & _
                              " - " & einKontakt.Ort)

        Next

        'und sind fettich
        Console.WriteLine("Taste zum Beenden drücken...")
        Console.ReadKey()
    End Sub

End Module
